Top 10k strings from Spectrum Forth (1983)(CP Software)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 N#F#^#V##~
   2 "''"and from the graphics cursor:   
   2  !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
   1 ~#^#V#N#F#
   1 z=z+((a$+" ")(z+1
   1 while,r-while-1
   1 forget words
   1 else,r-else-1
   1 ajF#N#V#^#~
   1 a$=a$+n$(1
   1 a$="proff"
   1 a$="mc byte:":
   1 a$="WHILE"
   1 a$="UNTIL"
   1 a$="REPEAT"
   1 a$="Name Word:":
   1 a$="Forget ":
   1 a$="File Name:":
   1 a$="Enter character to redefine:":
   1 a$="BEGIN"
   1 a$="***>":
   1 a$(x);"+":
   1 SPECTRUM FLOATING-POINT FORTH isbased on FORTH-79 with additionsfor FLOATING-POINT arithmetic.  
   1 ;"You are now in Command Mode"
   1 ;"Still loading - please wait.":
   1 ;"SPECTRUM"
   1 ;"From the main keyboard:
   1 ;"From  CP SOFTWARE":
   1 ;"FLOATING-POINT"
   1 ;"17 Orchard Lane,
   1 ,begin-r+254
   1 ,begin-r+251
   1 +"Continue definition:":
   1 *e\w#s#r#q#p#"e\
   1 *(a$="s")-1000
   1 *(a$="d")+3000
   1 *(a$=":")+2000
   1 )+"not known.":
   1 (a$+" ")(z+1
   1 ''"Stack:";(32717
   1 '"Word not found.":
   1 '"Word already used.":
   1 '"Tape OK.":
   1 '"New definition of CHR$ ";c
   1 "routines"
   1 "Please play back to verify.":
   1 "From the main keyboard:
   1 "Forgotten:";a$
   1 "Compiling - please wait."
   1  words exclusively for his own   use."
   1  illegal except for storage of   the purchaser's own FORTH
   1  Prestwood,
   1  MIKE HAMPSON (May 1983)."
   1  M. Hampson 1983"
   1  Gt.Missenden, Bucks."  
   1  Copyright May 1983 M Hampson."
   1  Copying of this program is